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FIG.4 

ustream input_order($o) { # order entry stream 
top: 

$o = new <APP>::OysterOrder($S); 
$o->default; 

first: 

page(input_order.page) { 

$V->{SLOT} = { slot => $o->input }; 

} 

if ($V->{action} eq "next") { goto second; } 
goto first; 

second: 

if ($o->{ERROR} = $o->check) { goto first; } 
page(print_order_conf.page) { 
$V->{SLOT) = { slot => $o->print }; 

} 

if ($V->{action} eq "back") { goto first; } 
elsif ($V->{action} eq "next') { goto third; } 
goto second; 

third: 

$o->{on"d} = $o->nextorid; 
$$S{DA}->sa veObject($o) ; 

fourth: 

page(print_order_done.page) { 
$V->{SLOT} = { slot => $o->print }; 

} 

if ($V->{action} eq "next") { goto first; } 
goto fourth; 
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FIG.5 



# Object that represents order of oyster dish. Detail of member variable is 
<MEMBER>. 

package OysterOrder; 

# Object that represents order of oyster dish 

#BEGIN_DECLARE ^ 

$data = "orid int, # Order ID 

brand int, # Oyster's brand code 

recipe int # Recipe code 

trimming int # Seasoning code 

comment text, # Comment regarding recipe 
primary key(orid)"; 

$seqs = "seq_orid:orid:l ,"; 

$defo = 'brand => OysterType, recipe => RecipeType, trimming => TrimmingType"; 
#END_DECLARE 
use strict; 

sub new { # Constructor of oyster dish ordering object 
my($type,$S,%hash) = @j 

my %h = ( "S" => $S, "SELF' => "OysterOrder", %hash); 
return bless ¥%h, "<APP>::OysterOrder"; 

} 

sub nextorid { # Next ORID 

my($V) =@jmy$S = $V->{S}; 

my($orid) = $$S{DA}->getrowrselect nextval('seq_orid')"); 
$orid; 

} 



Pi 



> p2 



P3 



sub default { # Set default value 
my($V) = @j my $S = $V->{S}; 
$V->{brand} = 1 ; # Rock oyster 
$V->{recipe} = 1 ; # Eaten-raw y p 4 

$V->{trimming} = 2; # Lemon only 
$V->{comment} = "'; 
delete $V->{orid}; 

} J 
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FIG.6 



sub input { # Order entry form ^ 

my($V) = @_j my $S = $V->{S}; 

print_webform( # Order entry form 
'<toble> 

<ifdef ERRORxspan class=error><!ERROR></spanx/ifdef> 
<tr><td> Brand of oyster</td><td> 

<input type=select name=brand value=$brand choice=[OysterType]></tdx/tr> 1 p 5 
<tr><td> Recipe of oyster </td><td> 

<input type=select name=recipe value=$recipe choice=[RecipeType]></td></tr> 
<tr><td> Trimmed seasoning</td><td> 

<input type=TrimmingType name=trimming value=$trimming></td></tr> 
<tr><td> Comment</td><td> 

<input type=text name=comment value=$comment size=60></td></tr> 
</table>'); 

} J 

sub check { 

my($V) = @_j my $S = $V->{S}; 
my $count = 0; 
my $value = $V->{trimming}; 

while ($value>0) { $count += $value & 1 ; $value »= 1 ; } [ p 6 

my $error = "'; 
if ($count >= 3) { 

$error = "<li> You can only attach up to two kinds of seasoning at once."; 

} 

$erron 

} J 

\ 

sub print { # Fair copy of order in HTML format 

my($V) = @ _jmy$S = $V->{S}; 

print_webtext( # Fair copy of order in HTML format 
'<table> 

<tr><td> Brand of oyster </td><td><%brandx/td></tr> ) p 7 

<tr><td> Recipe of oyster</td><td><%recipe></td></tr> 
<tr><td> Trimmed seasoning</td><tdx%trimmingx/tdx/tr> 
<tr><td>Comment</tdxtd><%commentx/td></ti> 
</table>'); 

} J 
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(a) < Page for inputting orden/main/input_order.page > 

<h3> Please select brand of oyster and recipe</h3> 

<#slot> 

<br> 

<input type=submit action= M nexf" label=" NEXT "> 



( b ) < Page for confirming orden/main/print_order_conf.page > 

<h3> Please confirm your order.</h3> 

<#slot> 

<br> 

<input type=submit action="nexf ' label=" ORDER EXECUTE^ 
<input type=submit action-back" label-' BACIO 



( c ) < Page for notifying that order is completed.:/main/print_order_done.page > 

<h3> The following order has been accepted.</h3> 

<#slot> 

<br> 

<input type=submit action="nexf ' label=" BACK TO BEGINNING'^ 
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FIG. 16 



(a) < Activation stream:/init.stream> 

ustream init() { # Activation stream 
loop: 

pjorkf Window stream'Vymain/init^tream'V^his'); 

p_wait(); 

goto loop; 



( b ) < Window activation stream:/main/init .stream > 
ustream init() { # Window stream 
loop: 

p_setPage("top.page"); 
p_fork( M menu ,, / ,, menu.stream , V , menu n ); 
p_wait(); 
goto loop; 



( c ) <Menu stream:/main/menu.stream > 

ustream menu() { # Menu display stream 
first: 

page(menu.page) { 
} 

if ($V->{action} eq "inputordef) { 

pJork( ,, INPUTORDER ,, ;^nput_order.stream ,, ; , Aview ,, ); 
} elsif ($V->{action} eq Tisf ) { 

pJorkf'DISPLAY ORDERING LISTVlist.stream , V ,A main M ); 

} 

goto first; 
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FIG. 17 

( a ) <Top frame (new addition) :/main/top.page > 

<table width=100% height=100% bgcolor=#ffffff border=0 cellspacing=2 
cellpadding=0 style="table-layout:fixed"> 
<tr> 

<td width=l 43 valign=top align=left class=wallpaper> 
<divstyle="overfiow:auto"><#menux/divx/td> 
<td valign=top class=wallpaper> 
<divstyle="overflow:auto"><#view></divx/td> 
</tr> 
<tr> 

<td colspan=2 height=70% valign=top class=wallpaper> 
<divstyle="overflow:auto"><#main></divx/td> 
</tr> 

</table> 



( b ) <Menu page (new addition) :/main/menu.page > 
<h3> Main menu </h3> 
<tablexfrxtd valign=top> 

<table class=inner bgcolor=#ffffff border-color=#OOCXXX) border=2 
cellspacing=0 cellpadding=10> 
<trxtd valign=top> 

<li><a href= , tactibn:input_order J, > INPUT ORDER</a> 
<li><a href="action:lisf "> DISPLAY ORDERING UST</a> 
</td></tr> 
</table> 
</tdx/trx/table> 
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